home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / clisp_c.zoo / places.fas < prev    next >
Text File  |  1993-06-05  |  39KB  |  914 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  4.    GET-SETF-METHOD-MULTIPLE-VALUE REMOVE-OLD-DEFINITIONS
  5.    #Y(GET-SETF-METHOD-MULTIPLE-VALUE
  6.       #245Y(00 01 00 01 00 08 39 01 5B AB 1A 80 E0 36 01 6A A4 01 02 AA 73 01
  7.             D4 AD AD 73 03 AD 3C 05 19 06 36 01 6A A4 01 02 8C 04 1A 0C 8B 00
  8.             7B 01 36 01 6A A4 7B 02 7A 00 92 20 71 A9 78 65 01 AA AA AD 73 01
  9.             AF AE B0 73 01 31 02 20 72 8B 09 99 72 3C 05 19 0A 8C 01 AB AF 34
  10.             02 19 07 14 85 2D 41 8B 00 A8 23 02 6E 01 03 D7 8C 06 5B 1A 3A 74
  11.             06 C1 EC 8A 06 1C 1A 1E D8 A9 8B 0A 5A 02 A8 86 A1 76 A8 7B 03 1A
  12.             1E 7E 01 00 AA AF 85 28 60 89 06 04 AA 85 AA 68 36 01 6A A4 A8 7B
  13.             06 A9 7B 05 A8 7B 04 16 01 7C 02 7A 01 A9 84 B6 5A 16 03 8B 05 A9
  14.             30 65 55 EA 36 01 6A A4 AB 6A 65 AB 6A 65 AA 73 01 8C 08 AD AD 6E
  15.             02 AD 3C 05 19 0B A8 85 2D FF 3C 92 1F 12 8B 00 86 2D 0D 8B 00 D5
  16.             36 01 6A 98 89 00 FF 77 16 01 92 EB 14 AC 77 5E 00 A9 93 22 5B D9
  17.             A9 5A 01
  18.            )
  19.       SETQ SETF-EXPANDER -5. 0. "The argument ~S to ~S should be a keyword."
  20.       "Argument ~S is not a SETF place."
  21.   )  )
  22. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  23.    GET-SETF-METHOD REMOVE-OLD-DEFINITIONS
  24.    #Y(GET-SETF-METHOD
  25.       #34Y(00 01 00 01 00 08 39 01 AA AA 2E 00 3E 05 94 1F 0D 94 54 1B 09 AC AC
  26.            AC AC AC 3C 05 19 08 D5 B0 5A 01
  27.           )
  28.       GET-SETF-METHOD-MULTIPLE-VALUE
  29.       "SETF place ~S produces more than one store variable."
  30.   )  )
  31. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  32.    DOCUMENTATION REMOVE-OLD-DEFINITIONS
  33.    #Y(DOCUMENTATION
  34.       #28Y(00 02 00 00 00 03 AA 86 2D 0D AA D6 36 01 6A 98 AA 36 01 30 99 19 03
  35.            D4 D5 AC 5A 02
  36.           )
  37.       "~S: first argument ~S is illegal, not a symbol" DOCUMENTATION
  38.       DOCUMENTATION-STRINGS
  39.   )  )
  40. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  41.    %SET-DOCUMENTATION REMOVE-OLD-DEFINITIONS
  42.    #Y(%SET-DOCUMENTATION
  43.       #115Y(00 03 00 00 00 04 AB 86 2D 1A 8A 01 80 55 AB D6 36 01 6A 98 AB AB
  44.             66 03 04 8A 00 05 AC D6 AA 30 9C 94 19 05 D4 D5 AD 5A 02 AB D6 36
  45.             01 6A 98 A8 5B 1A 2A D7 5A 00 71 94 54 71 2F D2 1A 0C 89 00 75 94
  46.             54 54 EC AE D6 AC 30 9C 02 19 07 93 54 1F 62 8B 01 98 21 68 93 54
  47.             71 94 EB 62 01 93 20 6D 00 19 07 AB D6 36 01 6A 98 AB 36 01 85 99
  48.             FF B9 00 19 04
  49.            )
  50.       "~S: first argument ~S is illegal, not a symbol" DOCUMENTATION
  51.       DOCUMENTATION-STRINGS "REMF: property list with an odd length" %PUTF
  52.   )  )
  53. #Y(#:TOP-LEVEL-FORM-6
  54.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) PUSH
  55.    REMOVE-OLD-DEFINITIONS MACRO
  56.    #Y(PUSH
  57.       #100Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2C 80 43 94 54 70 95 54
  58.             54 70 A8 85 2D 3D 36 01 6A A4 A9 AD 2E 04 3E 05 AC AC AF B2 73 02
  59.             73 01 8A 02 0F 8B 02 8B 02 73 02 7B 00 7A 02 7A 01 89 02 71 8B 05
  60.             D7 B2 AE 73 03 73 02 7B 00 D9 A9 6A 65 AE 59 03 19 0E AA 2D 01 19
  61.             03 D6 A9 D7 AC AC 73 03 59 03 19 05
  62.            )
  63.       3. MACRO-CALL-ERROR SETQ CONS GET-SETF-METHOD LET*
  64.   )  )
  65. #Y(#:TOP-LEVEL-FORM-7
  66.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01)
  67.    DEFINE-SETF-METHOD REMOVE-OLD-DEFINITIONS MACRO
  68.    #Y(DEFINE-SETF-METHOD
  69.       #250Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 D3 94 54 70 95 54
  70.             54 70 96 54 54 71 AA 86 2D 80 C8 A8 5C AE 2F 64 3E 03 89 02 02 C1
  71.             EC D8 AE 6A A0 6B 02 13 69 F3 AD A9 2E 05 3E 02 C4 10 07 C4 10 08
  72.             00 10 09 00 10 0A 00 10 0B 00 10 0C BB E1 5E 16 E2 2B 04 0F 89 13
  73.             03 E4 7B 16 E2 67 11 E6 63 0A 6A 65 89 19 80 85 00 14 63 0B 5E 1C
  74.             6B 03 20 6B 02 1F 8A 01 14 E8 AA E9 5D 16 5D 17 5E 21 73 02 5D 18
  75.             6B 03 1F AB 59 04 EA 5D 19 5D 1A 5D 1B 5E 19 E2 89 19 02 03 1C 14
  76.             73 02 89 19 80 56 03 1D 14 AE 73 01 6B 02 20 6B 03 1F 5D 1E 5D 17
  77.             5E 21 73 02 5D 1F 5D 20 5D 21 5D 22 5E 1F 73 02 73 03 73 04 5D 23
  78.             5D 17 5E 22 73 02 5D 24 5D 17 5E 1F 73 02 73 04 5D 17 5E 22 73 02
  79.             59 06 16 02 12 06 19 0C AA 2D 01 19 03 D6 AB 5A 01 E7 04 1A 72 59
  80.             01 1A FF 73 00 1A FF A8
  81.            )
  82.       3. MACRO-CALL-ERROR
  83.       "The name of the access function must be a symbol, not ~S" (NIL) "SETF-"
  84.       REMOVE-ENV-ARG 0. %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS
  85.       %DEFAULT-FORM (CDR %LAMBDA-LIST) %LAMBDA-LIST ANALYZE1
  86.       (IGNORE %LAMBDA-LIST) MAKE-LENGTH-TEST LET* DECLARE IF ERROR
  87.       "The SETF expander for ~S may not be called with ~S arguments." QUOTE
  88.       ((1- (LENGTH %LAMBDA-LIST))) EVAL-WHEN (LOAD COMPILE EVAL) DEFUN ENV
  89.       ((DECLARE (IGNORE ENV))) %PUT 'SETF-EXPANDER CONS -5. FUNCTION
  90.       %SET-DOCUMENTATION 'SETF
  91.   )  )
  92. #Y(#:TOP-LEVEL-FORM-8
  93.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DEFSETF
  94.    REMOVE-OLD-DEFINITIONS MACRO
  95.    #Y(DEFSETF
  96.       #326Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 2B 94 54 70 95 54 71
  97.             92 1F 0A 8B 00 85 34 05 8B 00 85 2D 2D 92 1F 10 8B 00 86 34 0B 92
  98.             54 1F 07 92 54 70 85 34 80 63 5D 27 AA 5A 01 AA 2D 01 19 03 DD 8C
  99.             07 5A 01 98 54 54 1B 76 DE 99 54 70 5A 01 D6 D7 D8 D9 AD 73 02 DA
  100.             D9 8B 06 73 02 73 04 DB D9 AE 73 02 DC 98 54 54 1B 5B 98 54 53 1C
  101.             06 98 54 70 86 2E 50 98 54 70 73 04 D9 AE 73 02 59 05 19 05 E1 5A
  102.             00 0E 11 1A 80 5E 03 1D 1A 80 66 5D 1F 04 1C 72 59 01 1A 80 68 92
  103.             54 70 6A 63 DF 87 01 2B 0E 92 54 70 6A 63 E0 87 01 2B 55 E2 E3 2E
  104.             10 92 54 71 5C AD 2F 64 3E 03 5B 8B 04 97 54 53 70 CA 10 11 CA 10
  105.             12 00 10 13 00 10 14 00 10 15 00 10 16 BB 5D 17 5E 1B 5D 18 2B 04
  106.             19 5D 1A BC 36 03 83 DC FF 9F 03 1B FE 5D 1C 5D 18 BC 73 02 8A 15
  107.             FF 96 00 14 5D 1E 63 14 6A 65 89 1B FF 8F 00 14 63 15 5E 1E 6B 03
  108.             20 6B 02 1F 73 01 6B 02 20 31 02 1F 12 06 16 01 EA D6 5D 20 D8 D9
  109.             B2 73 02 5D 21 5D 22 AF 5D 23 5D 24 B7 68 25 B1 73 03 73 03 73 04
  110.             DB D9 B3 73 02 5D 26 B0 73 04 D9 B3 73 02 59 05 19 0A
  111.            )
  112.       2. MACRO-CALL-ERROR EVAL-WHEN (LOAD COMPILE EVAL) %PUT QUOTE
  113.       'SETF-EXPANDER %SET-DOCUMENTATION 'SETF
  114.       "Too many arguments to DEFSETF: ~S"
  115.       "The doc string to DEFSETF must be a string: ~S" 1. 0.
  116.       "Missing store variable in DEFSETF."
  117.       "The excess variables will be ignored."
  118.       "Only one store variable is allowed in DEFSETF." CERROR %ARG-COUNT
  119.       %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM
  120.       (CDR %ACCESS-ARGLIST) %ACCESS-ARGLIST ANALYZE1 &KEY -1. LAMBDA
  121.       ((DECLARE (IGNORE %ACCESS-ARGLIST))) LET* DECLARE (LOAD COMPILE EVAL)
  122.       'SETF-EXPANDER CONS FUNCTION "SETF-" CONCAT-PNAMES 'SETF
  123.       "Illegal syntax in DEFSETF for ~S"
  124.   )  )
  125. #Y(#:TOP-LEVEL-FORM-9
  126.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) POP
  127.    REMOVE-OLD-DEFINITIONS MACRO
  128.    #Y(POP
  129.       #108Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2C 80 45 94 54 70 A8 85
  130.             2D 80 42 A8 AB 2E 06 3E 05 AC AC 5B 8A 02 0F 8B 02 8B 02 73 02 7B
  131.             00 7A 02 7A 01 89 02 71 8B 05 AC 73 02 7B 00 DB A9 6A 65 D6 D7 8B
  132.             09 73 02 D8 8B 0A D9 8B 0C 73 02 73 03 B1 73 04 59 03 19 0C AA 2D
  133.             01 19 03 D6 D7 AA 73 02 D8 AB D9 AD 73 02 73 03 59 03 19 04
  134.            )
  135.       2. MACRO-CALL-ERROR PROG1 CAR SETQ CDR GET-SETF-METHOD LET*
  136.   )  )
  137. #Y(#:TOP-LEVEL-FORM-10
  138.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) PSETF
  139.    REMOVE-OLD-DEFINITIONS MACRO
  140.    #Y(PSETF
  141.       #88Y(00 01 00 01 00 08 39 01 8C 02 A8 01 02 1A 38 D4 D5 B0 5A 02 94 54 1F
  142.            77 8B 02 AE 2E 02 3E 05 AC AC 8A 01 0F 8B 01 8B 01 73 02 7B 08 7A 01
  143.            7A 00 89 01 71 16 02 8B 02 9A 54 70 73 02 7B 06 A9 7B 05 16 05 94 54
  144.            54 EC 94 20 4A D7 AA 6A 65 AA D8 6B 02 20 31 02 1F 19 07
  145.